home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 August / 1987-08.d64 / sprite flip.ldr (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  993b  |  35 lines
  1. 10 rem copyright 1987 compute! publications, inc. all rights reserved
  2. 20 poke 53280,0:poke 53281,0:printchr$(14)"[147][155][195]reating ml..."
  3. 30 fort=49152to49329:readh:poket,h:ck=ck+h:next
  4. 40 if ck<>25249 then print "[197]rror in data."
  5. 50 data76,68,192,76,65,192
  6. 60 data165,251,72,165,252,72
  7. 70 data32,145,192,32,54,192
  8. 80 data160,0,162,60,32,46
  9. 90 data192,32,46,192,32,46
  10. 100 data192,202,202,202,202,202
  11. 110 data202,16,239,104,133,252
  12. 120 data104,133,251,96,189,180
  13. 130 data192,145,251,200,232,96
  14. 140 data160,63,177,251,153,180
  15. 150 data192,136,16,248,96,56
  16. 160 data176,1,24,169,0,105
  17. 170 data0,141,178,192,165,251
  18. 180 data72,165,252,72,32,145
  19. 190 data192,32,54,192,160,0
  20. 200 data185,180,192,72,185,182
  21. 210 data192,153,180,192,104,153
  22. 220 data182,192,200,200,200,192
  23. 230 data66,208,235,160,63,185
  24. 240 data180,192,174,178,192,208
  25. 250 data39,162,7,74,46,179
  26. 260 data192,202,16,249,173,179
  27. 270 data192,145,251,136,16,231
  28. 280 data104,133,252,104,133,251
  29. 290 data96,169,0,133,251,134
  30. 300 data252,70,252,102,251,70
  31. 310 data252,102,251,96,162,7
  32. 320 data74,8,74,46,179,192
  33. 330 data40,46,179,192,202,202
  34. 340 data16,242,48,208
  35.